home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 48 / PC Gamer IT CD 48 2-2.iso / Starsiege / tribesdemo.exe / Disk1 / data1.cab / Tribes_Demo / base / scripts.vol / client.cs < prev    next >
Encoding:
Text File  |  1999-09-14  |  15.0 KB  |  711 lines
  1. //----------------------------------------------------------------------------
  2. // Client side convience scripts
  3. //
  4. function buy(%desc)
  5. {
  6.     %type = getItemType(%desc);
  7.     if (%type != -1) {
  8.         remoteEval(2048,buyItem,%type);
  9.     }
  10.     else {
  11.         echo("Unknown item \"" @ %desc @ "\"");
  12.     }
  13. }
  14.  
  15. function markFavorites()
  16. {
  17.     // Currently done by the shell
  18. }
  19.  
  20. function remoteSetInfoLine(%mgr, %lineNum, %text)
  21. {
  22.    if(%mgr != 2048)
  23.       return;
  24.  
  25.     if (%lineNum == 1)
  26.     {
  27.         if (%text == "") Control::setVisible(InfoCtrlBox, FALSE);
  28.         else Control::setVisible(InfoCtrlBox, TRUE);
  29.     }
  30.  
  31.    Control::setText("InfoCtrlLine" @ %lineNum, %text);
  32. }
  33.  
  34.  
  35. function buyFavorites()
  36. {
  37.     // This function is invoked by the shell.
  38.     for (%i = 0; %i < 20; %i = %i + 1) {
  39.         if ($pref::itemFavorite[%i] != "") {
  40.             %type = getItemType($pref::itemFavorite[%i]);
  41.             if (%type != -1) {
  42.                 %list = %list @ "," @ %type;
  43.             }
  44.         }
  45.     }
  46.     if (%list != "") {
  47.         eval("remoteEval(2048,buyFavorites" @ %list @ ");");
  48.     }
  49. }    
  50.  
  51. function sell(%desc)
  52. {
  53.     %type = getItemType(%desc);
  54.     if (%type != -1) {
  55.         remoteEval(2048,sellItem,%type);
  56.     }
  57.     else {
  58.         echo("Unknown item \"" @ %desc @ "\"");
  59.     }
  60. }
  61.  
  62. function use(%desc)
  63. {
  64.     %type = getItemType(%desc);
  65.     if (%type != -1) {
  66.         // The client useItem function will make sure the use is
  67.         // sequenced correctly with trigger events.  The remoteEval
  68.         // works fine but may be delivered out of order.
  69.         // remoteEval(2048,useItem,%type);
  70.         useItem(%type);
  71.     }
  72.     else {
  73.         echo("Unknown item \"" @ %desc @ "\"");
  74.     }
  75. }
  76.  
  77. function drop(%desc)
  78. {
  79.     %type = getItemType(%desc);
  80.     if (%type != -1) {
  81.         remoteEval(2048,dropItem,%type);
  82.     }
  83.     else {
  84.         echo("Unknown item \"" @ %desc @ "\"");
  85.     }
  86. }
  87.  
  88. function throwStart()
  89. {
  90.     $throwStartTime = getSimTime();
  91. }
  92.  
  93. function throwRelease(%desc)
  94. {
  95.     %type = getItemType(%desc);
  96.     if (%type != -1) {
  97.         %delta = getSimTime() - $throwStartTime;
  98.         if (%delta > 1)
  99.             %delta = 100;
  100.         else
  101.             %delta = floor(%delta * 100);
  102.         remoteEval(2048,throwItem,%type,%delta);
  103.     }
  104.     else {
  105.         echo("Unknown item \"" @ %desc @ "\"");
  106.     }
  107. }
  108.  
  109. function deploy(%desc)
  110. {
  111.     %type = getItemType(%desc);
  112.     if (%type != -1) {
  113.         remoteEval(2048,deployItem,%type);
  114.     }
  115.     else {
  116.         echo("Unknown item \"" @ %desc @ "\"");
  117.     }
  118. }
  119.  
  120. function nextWeapon()
  121. {
  122.     // Up to the server right now
  123.     remoteEval(2048,nextWeapon);
  124. }    
  125.  
  126. function prevWeapon()
  127. {
  128.     // Up to the server right now
  129.     remoteEval(2048,prevWeapon);
  130. }
  131.  
  132. function commandAck()
  133. {
  134.     // Placed here to avoid binding problems with gui.
  135.     remoteEval(2048,CStatus,1,"Command Acknowledged~wacknow");
  136. }
  137.  
  138. function commandDeclined()
  139. {
  140.     // Placed here to avoid binding problems with gui.
  141.     remoteEval(2048,CStatus,0,"Unable to complete objective~wobjxcmp");
  142. }
  143.  
  144. function CommandCompleted()
  145. {
  146.     // Placed here to avoid binding problems with gui.
  147.     remoteEval(2048,CStatus,0,"Objective Completed~wobjcomp");
  148. }
  149.  
  150. function targetClient()
  151. {
  152.    if($lastClientMessage)
  153.    {
  154.       if(Client::getTeam(getManagerId()) == Client::getTeam($lastClientMessage))
  155.          %cmd = "Escort " @ Client::getName($lastClientMessage) @ ".~wescfr";
  156.       else
  157.          %cmd = "Attack " @ Client::getName($lastClientMessage) @ ".~wattway";
  158.       remoteEval(2048, "IssueTargCommand", 0, %cmd, $lastClientMessage - 2048, getManagerId());
  159.    }
  160. }
  161.  
  162. function onClientMessage(%client, %msg)
  163. {
  164.    if(%client)
  165.       $lastClientMessage = %client;
  166.  
  167.    // filter messages here
  168.    return true;
  169. }
  170.  
  171. function onTeamAdd(%team, %name)
  172. {
  173.  
  174. }
  175.  
  176. function onClientJoin(%client)
  177. {
  178.  
  179. }
  180.  
  181. function onClientDrop(%client)
  182. {
  183.  
  184. }
  185.  
  186. function onClientChangeTeam(%client, %team)
  187. {
  188.  
  189. }
  190.  
  191. function clearCenterPrint(%id)
  192. {
  193.    if(%id == $centerPrintId)
  194.       Client::centerPrint("", 0);
  195. }
  196.  
  197. function remoteITXT(%manager, %msg)
  198. {
  199.    if(%manager == 2048)
  200.       Control::setValue(EnergyDisplayText, %msg);
  201. }
  202.  
  203. function remoteCP(%manager, %msg, %timeout)
  204. {
  205.    if(%manager == 2048)
  206.    {
  207.       $centerPrintId++;
  208.       if(%timeout)
  209.          schedule("clearCenterPrint(" @ $centerPrintId @ ");", %timeout);
  210.       Client::centerPrint(%msg, 0);
  211.    }
  212. }
  213.  
  214. function remoteBP(%manager, %msg, %timeout)
  215. {
  216.    if(%manager == 2048)
  217.    {
  218.       $centerPrintId++;
  219.       if(%timeout)
  220.          schedule("clearCenterPrint(" @ $centerPrintId @ ");", %timeout);
  221.       Client::centerPrint(%msg, 1);
  222.    }
  223. }
  224.  
  225. function remoteTP(%manager, %msg, %timeout)
  226. {
  227.    if(%manager == 2048)
  228.    {
  229.       $centerPrintId++;
  230.       if(%timeout)
  231.          schedule("clearCenterPrint(" @ $centerPrintId @ ");", %timeout);
  232.       Client::centerPrint(%msg, 2);
  233.    }
  234. }
  235.  
  236. function kill()
  237. {
  238.     remoteEval(2048,kill);
  239. }    
  240.  
  241. function giveall()
  242. {
  243.     remoteEval(2048,giveall);
  244. }
  245.  
  246. // Fear aliases
  247. function setTeam(%team)
  248. {
  249.    remoteEval(2048, setTeam, %team);
  250. }
  251.  
  252. function say(%channel, %message)
  253. {
  254.    remoteEval(2048, say, %channel, %message);
  255. }
  256.  
  257. function mute(%playerName)
  258. {
  259.    remoteEval(2048, mute, 1, getClientByName(%playerName));
  260. }
  261.  
  262. function unmute(%playerName)
  263. {
  264.    remoteEval(2048, mute, 0, getClientByName(%playerName));
  265. }
  266.  
  267. function show()
  268. {
  269.    // redefine end frame script
  270.    function Game::EndFrame()
  271.    {
  272.    }
  273.    $Console::LastLineTimeout = 0;
  274.    $Console::updateMetrics = false;
  275. }
  276. show();
  277.  
  278. function showTime()
  279. {
  280.    function Game::EndFrame()
  281.    {
  282.       echo("C: " @ getIntegerTime(false) @ "   S: " @ getIntegerTime(true));
  283.    }
  284.    $Console::LastLineTimeout = 1000;
  285.    $Console::updateMetrics = false;
  286. }
  287.  
  288. function showFPS()
  289. {
  290.    function Game::EndFrame()
  291.    {
  292.        echo($ConsoleWorld::FrameRate);
  293.    }
  294.    $Console::LastLineTimeout = 1000;
  295.    $Console::updateMetrics = false;
  296. }
  297.  
  298. function showGfxOGL()
  299. {
  300.    function Game::EndFrame()
  301.    {
  302.        echo($ConsoleWorld::FrameRate  @
  303.                " T: "   @ $OpenGL::TexDL @
  304.                " L: "   @ $OpenGL::LMDL  @
  305.                " LB: "  @ $OpenGL::LMB   @
  306.                " E: "   @ $OpenGL::ET);
  307.    }
  308.    $Console::LastLineTimeout = 1000;
  309. }
  310.  
  311. function showGfxSW()
  312. {
  313.    function Game::EndFrame()
  314.    {
  315.       echo($ConsoleWorld::FrameRate 
  316.        @ " P:" @ $GFXMetrics::EmittedPolys
  317.        @ ", " @ $GFXMetrics::RenderedPolys
  318.        @ " TSU:", $GFXMetrics::textureSpaceUsed);
  319.    }
  320.    $Console::LastLineTimeout = 1000;
  321.    $Console::updateMetrics = true;
  322. }
  323.  
  324. function messageAndAnimate(%animSeq,%wav)
  325. { 
  326.     remoteEval(2048,playAnimWav,%animSeq,%wav);
  327. }
  328.  
  329. function remotePlayAnimWav(%cl, %anim, %wav)
  330. {
  331.    remotePlayAnim(%cl, %anim);
  332.    playVoice(%cl, %wav);
  333. }
  334.  
  335. function remoteLMSG(%cl, %wav)
  336. {
  337.    playVoice(%cl, %wav);
  338. }
  339.  
  340. function localMessage(%wav)
  341. {
  342.    remoteEval(2048, LMSG, %wav);
  343. }
  344.  
  345. function changeLevel(%newLevel)
  346. {
  347.    remoteEval(2048, changeLevel, %newLevel);
  348. }
  349.  
  350. function setArmor(%armorType)
  351. {
  352.    remoteEval(2048, setArmor, %armorType);
  353. }
  354.  
  355. function voteYes()
  356. {
  357.    remoteEval(2048, VoteYes);
  358. }
  359.  
  360. function voteNo()
  361. {
  362.    remoteEval(2048, VoteNo);
  363. }
  364.  
  365. //editing functions
  366.  
  367. function winMouse()
  368. {
  369.    inputDeactivate(mouse0);
  370.    windowsMouseEnable(MainWindow);
  371. }
  372.  
  373. function dirMouse()
  374. {
  375.    inputActivate(mouse0);
  376.    windowsMouseDisable(MainWindow);
  377. }
  378.  
  379. function editGui()
  380. {
  381.    winMouse();
  382.    GuiInspect(MainWindow);
  383.    GuiToolbar(MainWindow);
  384. }
  385.  
  386. function tree()
  387. {
  388.     simTreeCreate(tree, MainWindow);
  389.     simTreeAddSet(tree, manager);
  390. }
  391.  
  392. function toggleMouse()
  393. {
  394.    if($flagMouseDirect = !$flagMouseDirect)
  395.    {
  396.       dirMouse();
  397.    }
  398.    else
  399.    {
  400.       winMouse();
  401.    }
  402. }
  403.  
  404. function remoteSetTime(%server, %time)
  405. {
  406.    if(%server == 2048)
  407.       setHudTimer(%time);
  408. }
  409.  
  410. function SAD(%password)
  411. {
  412.    remoteEval(2048, AdminPassword, %password);
  413. }
  414.  
  415. function SADSetPassword(%password)
  416. {
  417.    remoteEval(2048, SetPassword, %password);
  418. }
  419.  
  420. function ADSetTimeLimit(%time)
  421. {
  422.    remoteEval(2048, SetTimeLimit, %time);
  423. }
  424.  
  425. function ADSetTeamInfo(%team, %teamName, %skinBase)
  426. {
  427.    remoteEval(2048, SetTeamInfo, %team, %teamName, %skinBase);
  428. }
  429.  
  430. function remoteSVInfo(%server, %version, %hostname, %mod, %info, %favKey)
  431. {
  432.    if(%server == 2048)
  433.    {
  434.       $ServerVersion = %version;
  435.       $ServerName = %hostname;
  436.       $modList = %mod;
  437.       $ServerMod = $modList;
  438.       $ServerInfo = %info;
  439.       $ServerFavoritesKey = %favKey;
  440.       EvalSearchPath();
  441.    }
  442. }
  443.  
  444.  
  445. function remoteMODInfo(%server, %modString)
  446. {
  447.    if(%server == 2048)
  448.    {
  449.       $ServerModInfo = %modString;
  450.       // if it is not "", 
  451.       // show it on the loading gui
  452.       if($ServerModInfo != "")
  453.       {
  454.          Control::setValue(ModTextString, "<jc><f1>NOTICE: This server has been modified\n<f0>" @ %modString);
  455.       }
  456.    }
  457. }
  458.  
  459. function remoteFileURL(%server, %url)
  460. {
  461.    if(%server == 2048)
  462.    {
  463.       $ServerFileURL = %url;
  464.       // if a disconnect occurs, pop this string up instead of error message
  465.    }
  466. }
  467.  
  468. function remoteMInfo(%server, %missionName)
  469. {
  470.    if(%server == 2048)
  471.    {
  472.       %file = "missions\\" @ %missionName @ ".dsc";
  473.       $MDESC::Type = "";
  474.       $MDESC::Text = "";
  475.       if(File::findFirst(%file) != "")
  476.          exec(%file);
  477.       $ServerMission = %missionName;
  478.       $ServerText = $MDESC::Text;
  479.       $ServerMissionType = $MDESC::Type;
  480.         if(isObject(LobbyGui))
  481.             LobbyGui::onOpen();  // update lobby screen text.
  482.    }
  483. }
  484.  
  485. function remoteMissionChangeNotify(%serverManagerId, %nextMission)
  486. {
  487.    if(%serverManagerId == 2048)
  488.    {
  489.       cls();
  490.       echo("Server mission complete - changing to mission: ", %nextMission);
  491.       echo("Flushing Texture Cache");
  492.       flushTextureCache();
  493.       schedule("purgeResources(true);", 3);
  494.    }
  495. }
  496.  
  497. function dataGotBlock(%blockName, %pctDone)
  498. {
  499.    if(%pctDone < 0.1)
  500.       %text = "Initializing Personal Digital Assistant...";
  501.    else if(%pctDone < 0.2)
  502.       %text = "Establishing uplink with satellite network...";
  503.    else if(%pctDone < 0.3)
  504.       %text = "Downloading navigational and topographical data...";
  505.    else if(%pctDone < 0.4)
  506.       %text = "Charging armor energy cell...";
  507.    else if(%pctDone < 0.5)
  508.       %text = "Pingback satellite uplink check...";
  509.    else if(%pctDone < 0.6)
  510.       %text = "Beginning primary weapons system check...";
  511.    else if(%pctDone < 0.7)
  512.       %text = "Beginning secondary weapons system check...";
  513.    else if(%pctDone < 0.8)
  514.       %text = "Downloading tactical information from tribal database...";
  515.    else
  516.       %text = "Starting armor power-up sequence...";
  517.  
  518.    //Control::setText(ProgressText, "Loading " @ %blockName @ " data...");
  519.    Control::setValue(ProgressText, "<jc><f1>" @ %text);
  520.    Control::setValue(ProgressSlider, %pctDone * 0.75);
  521. }
  522.  
  523. function dataFinished()
  524. {
  525.    // called on client when all the dynamic data has
  526.    // finished transfer.
  527.  
  528.     if ($cdMusic && !$pref::userCDOverride)
  529.     {
  530.         rbSetPlayMode (CD, 0);
  531.         rbStop (CD);
  532.     }
  533.    Control::setValue(ProgressText, "<jc><f0>Get ready to rock n' roll!");
  534.    Control::setValue(ProgressSlider, 0.9);
  535.  
  536.    $dataFinished = true;
  537.    remoteEval(2048, dataFinished);
  538.  
  539.    echo("Flushing Texture Cache");
  540.    flushTextureCache();
  541. }
  542.  
  543. function onClientGhostAlwaysDone()
  544. {
  545.    // preload the commander gui if it's not already loaded
  546.    if(!isObject("commandGui"))
  547.       loadObject("commandGui", "gui\\command.gui");
  548.  
  549.    %temp = $pref::terrainTextureDetail;
  550.    $pref::terrainTextureDetail = 1;
  551.    rebuildCommandMap();
  552.    $pref::terrainTextureDetail = %temp;
  553.    flushTextureCache();
  554.    purgeResources(true);
  555.    remoteEval(2048, "CGADone");
  556.  
  557. //   echo("Registering Static Textures");
  558. //   RegisterStaticTextures(MainWindow);
  559. }
  560.  
  561. function remoteSetMusic (%player, %track, %mode)
  562. {
  563.     if(%player == 2048)
  564.    {
  565.        $cdPlayMode = %mode;
  566.        $cdTrack = %track;
  567.        if (!$pref::userCDOverride)
  568.        {
  569.            if ($cdTrack == 0)
  570.             {
  571.                 rbSetPlayMode (CD, 0);
  572.                 rbStop (CD);
  573.             }
  574.            else
  575.                if ($cdTrack != "")
  576.                 {
  577.                     rbSetPlayMode (CD, 0);
  578.                     rbStop (CD);
  579.                     rbSetPlayMode (CD, $cdPlayMode);
  580.                     if ($pref::cdMusic)
  581.                         rbPlay (CD, $cdTrack);
  582.                 }
  583.        }
  584.    }
  585. }
  586.  
  587. function onConnectionError(%client, %manager, %errorString)
  588. {
  589.    if(%manager == 2048)
  590.    {
  591.    }
  592.    else
  593.    {
  594.       Quickstart();
  595.       GuiPushDialog(MainWindow, "gui\\MessageDialog.gui");
  596.       $errorString = "Connection to server error:\n" @ %errorString;
  597.         schedule("Control::setValue(MessageDialogTextFormat, $errorString);", 0);
  598.    }
  599. }
  600.  
  601. function onConnection(%message)
  602. {
  603.    echo("Connection ", %message);
  604.    $dataFinished = false;
  605.    if(%message == "Accepted")
  606.    {
  607.       resetSimTime();
  608.         //execute the custom script
  609.         if ($PCFG::Script != "")
  610.         {
  611.             exec($PCFG::Script);
  612.         }
  613.  
  614.       resetPlayDelegate();
  615.       remoteEval(2048, "SetCLInfo", $PCFG::SkinBase, $PCFG::RealName, $PCFG::EMail, $PCFG::Tribe, $PCFG::URL, $PCFG::Info, $pref::autoWaypoint, $pref::noEnterInvStation, $pref::messageMask);
  616.  
  617.         if ($Pref::PlayGameMode == "JOIN")
  618.         {
  619.             cursorOn(MainWindow);
  620.           GuiLoadContentCtrl(MainWindow, "gui\\Loading.gui");
  621.             renderCanvas(MainWindow);
  622.         }
  623.  
  624.    }
  625.    else if(%message == "Rejected")
  626.    {
  627.         Quickstart();
  628.       $errorString = "Connection to server rejected:\n" @ $errorString;
  629.       GuiPushDialog(MainWindow, "gui\\MessageDialog.gui");
  630.         schedule("Control::setValue(MessageDialogTextFormat, $errorString);", 0);
  631.    }
  632.    else
  633.    {
  634.       //startMainMenuScreen();
  635.         Quickstart();
  636.  
  637.       if(%message == "Dropped")
  638.       {
  639.          if($errorString == "")
  640.             $errorString = "Connection to server lost:\nServer went down.";
  641.          else
  642.             $errorString = "Connection to server lost:\n" @ $errorString;
  643.  
  644.          GuiPushDialog(MainWindow, "gui\\MessageDialog.gui");
  645.            schedule("Control::setValue(MessageDialogTextFormat, $errorString);", 0);
  646.       }
  647.       else if(%message == "TimedOut")
  648.       {
  649.          $errorString = "Connection to server timed out.";
  650.          GuiPushDialog(MainWindow, "gui\\MessageDialog.gui");
  651.            schedule("Control::setValue(MessageDialogTextFormat, $errorString);", 0);
  652.       }
  653.    }
  654. }
  655.  
  656. function onPlaybackFinished()
  657. {
  658.    // called when a recording is done with playback.
  659.     cursorOn(MainWindow);
  660.    GuiLoadContentCtrl(MainWindow, "gui\\Recordings.gui");
  661. }
  662.  
  663. function setupRecorderFile(%fileName)
  664. {
  665.     if(%fileName != "" && %fileName != "False") {
  666.         if(isFile("recordings\\" @ %fileName)) 
  667.             echo("Warning- " @ %fileName @ " File Already Exists");
  668.         $recorderFileName = "recordings\\" @ %fileName;
  669.         if($recorderFileName != "False") {
  670.             echo("File is named: ",%fileName);
  671.             return "True";
  672.         }    
  673.      }
  674.     else {
  675.         for(%i = 0; %i < 500; %i++) {
  676.             if(!isFile("recordings\\recording" @ %i @ ".rec")) {
  677.               $recorderFileName = "recordings\\recording" @ %i @ ".rec";
  678.                 if($recorderFileName != "False") {
  679.                     echo("File is named: recording",%i,".rec");
  680.                     return "True";
  681.                 }    
  682.             }        
  683.         }
  684.     }
  685.     echo("Couldn't setup File");
  686.     return "False";    
  687. }
  688.  
  689. function EnterLobbyMode()
  690. {
  691.    schedule("ELM();", 0);
  692. }
  693.  
  694. function ELM()
  695. {
  696.    if($playingDemo)
  697.    {
  698.       setCursor(MainWindow, "Cur_Arrow.bmp");
  699.       disconnect();
  700.       startMainMenuScreen();
  701.       GuiLoadContentCtrl(MainWindow, "gui\\Recordings.gui");
  702.    }
  703.    else
  704.    {
  705.        $InLobbyMode = true;
  706.       GuiLoadContentCtrl(MainWindow, "gui\\Lobby.gui");
  707.       CursorOn(MainWindow);
  708.    }
  709. }
  710.  
  711.